local URl = "https://gist.githubusercontent.com/QuantumDreemurr/88985e3e46859a7ddc57deebde815d34/raw/e2d7c9fac38b7c86f34db981b48e8ea3b7c6af7a/gistfile1.txt"

local Base64 = {}
local b = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"

function Base64.encode(data)
	return ((data:gsub('.', function(x) 
		local r,b='',x:byte()
		for i=8,1,-1 do r=r..(b%2^i-b%2^(i-1)>0 and '1' or '0') end
		return r;
	end)..'0000'):gsub('%d%d%d?%d?%d?%d?', function(x)
		if (#x < 6) then return '' end
		local c=0
		for i=1,6 do c=c+(x:sub(i,i)=='1' and 2^(6 - i) or 0) end
		return b:sub(c + 1,c + 1)
	end)..({ '', '==', '=' })[#data % 3+1])
end

function Base64.decode(data)
	data = string.gsub(data, '[^'..b..'=]', '')
	return (data:gsub('.', function(x)
		if (x == '=') then return '' end
		local r,f='',(b:find(x)-1)
		for i=6,1,-1 do r=r..(f%2^i-f%2^(i-1)>0 and '1' or '0') end
		return r;
	end):gsub('%d%d%d?%d?%d?%d?%d?%d?', function(x)
		if (#x ~= 8) then return '' end
		local c=0
		for i=1,8 do c=c+(x:sub(i,i)=='1' and 2^(8-i) or 0) end
		return string.char(c)
	end))
end

print("Loading (this WILL take a bit)")
local Data = _G.HQ_DATA
if not _G.HQ_DATA then
	Data = game:GetService("HttpService"):GetAsync(URl)
	print("Got Base64, decoding")
	Data=Base64.decode(Data)
	print("Decoded. Decoding JSON...")
	Data = game:GetService("HttpService"):JSONDecode(Data)
	print("JSON Decoded.")
	_G.HQ_DATA = Data
end

--ClassName, Position, Orientation, Size, Shape, Color, Transparency

local b =Instance.new("Model", workspace)
b.Name = "HQ"
for i,v in Data do 
	local p = Instance.new(v[1])
	local data = v[2]:split(",")
	p.Position = Vector3.new(data[1], data[2], data[3])
	p.Shape = v[5]
	data = v[6]:split(",")
	p.Color = Color3.new(data[1], data[2], data[3])
	p.Transparency = tonumber(v[7])
	data = v[3]:split(",")
	p.Orientation = Vector3.new(data[1], data[2], data[3])
	data = v[4]:split(",")
	p.Anchored = true
	p.Size = Vector3.new(data[1], data[2], data[3])
	p.Parent = b
	local touching = workspace:GetPartBoundsInBox(p.CFrame, p.Size + Vector3.new(0.05,0.05,0.05))
	for i,v in next, touching do 
		if v:IsDescendantOf(script) or v.Name == "Base" and v ~= p then
			local weld = Instance.new("WeldConstraint")
			weld.Part0 = p 
			weld.Part1 = v 
			weld.Parent = p
		end
	end
	if i%50 == 0 then
		task.wait()
	end
end

for i,v in b:GetChildren() do 
	if v.Size.X > 370 and v.Size.Z > 370 and v.Size.Y < 3 then
		print("Anchoring base")
		v.Anchored = true
	end
end